home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Programming / NRCOBOL1g / COBFILES / PHONE.CBL < prev    next >
Encoding:
Text File  |  1998-06-22  |  1.4 KB  |  46 lines
  1.  
  2.        IDENTIFICATION DIVISION.
  3.       *
  4.        PROGRAM-ID.    PHONE.
  5.        DATE-WRITTEN.  05/12/97.
  6.       *
  7.       *    Convert alpha code to phone number.
  8.       *
  9.       *        *******************************
  10.       *        *                             *
  11.       *        *     Judson D. McClendon     *
  12.       *        *     Sun Valley Systems      *
  13.       *        *     329 37th Court N.E.     *
  14.       *        *     Birmingham, AL 35215    *
  15.       *        *        205-853-8440         *
  16.       *        *                             *
  17.       *        *******************************
  18.       *
  19.        ENVIRONMENT DIVISION.
  20.       *
  21.        DATA DIVISION.
  22.       *
  23.        WORKING-STORAGE SECTION.
  24.       *
  25.        77  WS-PHONE-NBR   PIC  X(40) VALUE SPACES.
  26.        77  WS-LOWER-CASE  PIC  X(26) VALUE "abcdefghijklmnopqrstuvwxyz".
  27.        77  WS-UPPER-CASE  PIC  X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
  28.        77  WS-ALPHA       PIC  X(26) VALUE "ABCDEFGHIJKLMNOPQRSTUVWXYZ".
  29.        77  WS-NUMER       PIC  X(26) VALUE "22233344455566677778889999".
  30.       *
  31.        PROCEDURE DIVISION.
  32.       *
  33.        000000-PROCESS.
  34.       *
  35.            DISPLAY "Enter Phone Code".
  36.            ACCEPT WS-PHONE-NBR.
  37.       *
  38.            INSPECT WS-PHONE-NBR
  39.                CONVERTING WS-LOWER-CASE
  40.                        TO WS-UPPER-CASE.
  41.       *
  42.            INSPECT WS-PHONE-NBR
  43.                CONVERTING WS-ALPHA
  44.                        TO WS-NUMER.
  45.       *
  46.            DISPLAY WS-PHONE-NBR.